1  *BREAKOUT GAME - BY DAN PINAL
                2  *ZERO PAGE EQUATES
                3  WINDOW	EQU	$F0
                4  MSG	EQU	$F2
                5  LINE2	EQU	$F4
                6  PO	EQU	$F6
                7  *MISC EQUATES
                8  RTCLOC	EQU	$14
                9  ATRACT	EQU	$4D
               10  SDLSTL	EQU	$230
               11  STICKO	EQU	$278
               12  STRIGO	EQU	$284
               13  AUDF1	EQU	$D200		; PITCH I
               14  AUDC1	EQU	$D201		; DISTORTION/VOLUME I
               15  RANDOM	EQU	$D20A
               16  SETVBV	EQU	$E45C		; SET VBLANK ROUTINE
               17  XITVBV	EQU	$E462		; DEFFERED VBLANK EXIT
               18  CONSOL	EQU	$D01F
               19  * EQUATES FOR CIO
               20  CIOV	EQU	$E456		; ENTRY VECTOR
               21  * COMMANDS *
               22  OPEN	EQU	$03		; OPEN FOR INPUT/OUTPUT
               23  GETREC	EQU	$05		; GET RECORD
               24  GETCHR	EQU	$07		; GET CHARACTER(S)
               25  PUTREC	EQU	$09		; PUT RECORD
               26  PUTCHR	EQU	$0B		; PUT CHARACTER(S)
               27  CLOSE	EQU	$0C		; CLOSE DEVICE
               28  STATIS	EQU	$0D		; STATUS REQUEST
               29  SPECIL	EQU	$0E		; BEGINNING OF SPECIAL ENTRY COMMANDS
               30  *
               31  * SPECIAL COMMANDS
               32  *
               33  DRAWLN	EQU	$11		; DRAW LINE
               34  FILLIN	EQU	$12		; DRAW LINE WITH RIGHT FILL
               35  *
               36  * AUX1 VALUES
               37  *
               38  APPEND	EQU	$01		; OPEN FOR WRITE APPEND
               39  OPNIN	EQU	$04		; OPEN FOR INPUT
               40  OPNOT	EQU	$08		; OPEN FOR OUTPUT
               41  OPNINO	EQU	OPNIN+OPNOT	; OPEN FOR INPUT AND OUTPUT
               42  MXDMOD	EQU	$10		; OPEN FOR MIXED MODE (E:,S:)
               43  INSCLR	EQU	$20		; OPEN WITHOUT CLEARING SCREEN (E:,S:)
               44  *
               45  * O.S. RAM EQUATES
               46  *1/0 CONTROL BLOCK EQUATES
               47  ROWCRS	EQU	$54		; CURRENT GRAPHICS CURSOR ROW
               48  COLCRS	EQU	$55		; & $56. LSB MSB OF CURRENT GRAPHICS CURSOR COLUMN
               49  ATACHR	EQU	$2FB		; LAST GRAPHICS CHARACTER READ OR WRITTEN
               50  *
               51  ICHID	EQU	$340		; HANDLER INDEX SET BY O.S.
               52  ICDNO	EQU	$341		; DEVICE # AS IN D1:,D2: ETC
               53  ICCOM	EQU	$342		; COMMAND
               54  ICSTA	EQU	$343		; STATUS RETURNED
               55  ICBAL	EQU	$344		; BUFFER ADDRESS LO
               56  ICBAH	EQU	$345		; BUFFER ADDRESS HI
               57  ICPTL	EQU	$346		; PUT ONE BYTE VECTOR LO
               58  ICPTH	EQU	$347		; PUT ONE BYTE VECTOR HI
               59  ICBLL	EQU	$348		; BUFFER LENGTH LO
               60  ICBLH	EQU	$349		; BUFFER LENGTH HI
               61  ICAUX1	EQU	$34A		; AUXI
               62  ICAUX2	EQU	$34B		; AUX2
               63  ;
               64  ;
               65  ;
               66  	ORG	$4000
               67  *
4000 4C3042    68  	JMP START		; SKIP PAST SUBROUTINES
               69  * GRAPHICS CALLS TO O.S.
               70  *
               71  *   GRAPHICS
               72  *   ACC=GR. MODE
4003 48        73  GRAPHICS PHA			; SAVE MODE
4004 A260      74  	LDX	#$60		; IOCB #6 FOR GRAPHICS
4006 A90C      75  	LDA	#CLOSE		; CLOSE #6 FOR SAFETY (CAN'T OPEN AN ALREADY OPEN DEVICE)
4008 9D4203    76  	STA	ICCOM,X
400B 2056E4    77  	JSR	CIOV
400E A903      78  	LDA	#OPEN
4010 9D4203    79  	STA	ICCOM,X
4013 A9AC      80  	LDA	#>FNAME		; FILENAME IS S:
4015 9D4403    81  	STA	ICBAL,X
4018 A941      82  	LDA	#<FNAME
401A 9D4503    83  	STA	ICBAH,X
401D 68        84  	PLA			; GR. MODE
401E 9D4B03    85  	STA	ICAUX2,X
4021 29F0      86  	AND	#$F0		; KEEP UPPER NIBBLE FOR FULLSCREEN
               87  				; & NO SCREEN ERASE FLAGS(+16 & +32)
               88  *O.S. FULL SCREEN FLAG IS THE OPPOSITE OF THE WAY BASIC USES IT.
               89  *i.e. +16 = SPLIT SCREEN NOT FULL SCREEN
4023 4910      90  	EOR	#$10		; FLIP-FLOP IT LIKE BASIC
4025 090C      91  	ORA	#OPNINO		; OPEN S: FOR READING & WRITING
4027 9D4A03    92  	STA	ICAUX1,X
402A 4C56E4    93  	JMP	CIOV		; GO DO IT IT WILL RTS FROM THERE
               94  ;
               95  *   POSITION
               96  *   EVEN THOUGH THIS IS SIMPLE IT IS HERE AS A SUBROUTINE
               97  *   BECAUSE IT IS USED OFTEN BY OTHER ROUTINES
               98  *   ACC. = VERT.
               99  *   X = HORIZ. HI : Y HORIZ. LO
              100  POSITION
402D 8455     101  	STY	COLCRS		; CURSOR COLUMN LO
402F 8656     102  	STX	COLCRS+1	; CURSOR COLUMN HI
4031 8554     103  	STA	ROWCRS		; CURSOR ROW
4033 60       104  	RTS
              105  ;
              106  *   PLOT
              107  *   ENTRY REG. ARE SAME AS POSITION
              108  *   WILL PLOT A POINT USING VALUE IN COLOR
4034 202D40   109  PLOT	JSR	POSITION
4037 A260     110  	LDX	#$60		; IOCB #6
4039 A90B     111  	LDA	#PUTCHR
403B 9D4203   112  	STA	ICCOM,X
403E A900     113  	LDA	#$0		; 0 BUFFER LENGTH
4040 9D4803   114  	STA	ICBLL,X
4043 9D4903   115  	STA	ICBLH,X
4046 AD1542   116  	LDA	COLOR		; CIO WILL DEFAULT TO VALUE IN ACC
4049 4C56E4   117  	JMP	Ciov		; & SEND IT TO SCREEN (IT WILL RTS To PROGRAM FROM CIO
              118  *DRAWTO
              119  *   ENTRY SETUP SAME AS POSITION
404C 202D40   120  DRAWTO	JSR	POSITION
404F AD1542   121  	LDA	COLOR
4052 8DFB02   122  	STA	ATACHR		; TELL O.S.
4055 A260     123  	LDX	#$60		; IOCB #6
4057 A911     124  	LDA	#DRAWLN		; DRAWTO HAS ITS OWN SPECIAL COMMAND
4059 9D4203   125  	STA	ICCOM,X
405C A90C     126  	LDA	#OPNINO
405E 9D4A03   127  	STA	ICAUX1,X	; MAKE SURE O.S. KNOWS WHAT IT IS SUPPOSED TO DO
4061 A900     128  	LDA	#$0
4063 9D4B03   129  	STA	ICAUX2,X
4066 4C56E4   130  	JMP	CIOV		; GO DO IT & RTS TO PROGRAM FROM THERE
              131  *LOCATE
              132  *   SETUP SAME AS POSITION
              133  *   ACC. & COLOR HAVE VALUE LOCATED
4069 202D40   134  LOCATE	JSR	POSITION
406C A260     135  	LDX	#$60		; IOCB #6
406E A907     136  	LDA	#GETCHR
4070 9D4203   137  	STA	ICCOM,X
4073 A900     138  	LDA	#$0		; 0 OUT BUFFER LENGTH
4075 9D4803   139  	STA	ICBLL,X
4078 9D4903   140  	STA	ICBLH,X
407B 2056E4   141  	JSR	CIOV		; THIS WORKS EXACTLY THE OPPOSITE OF PLOT
407E 8D1542   142  	STA	COLOR
4081 60       143  	RTS
              144  *   MISC. ROUTINES
              145  *   8 BIT DIVISION
              146  *   X= NUM TO DIVIDE BY
              147  *   A= LOBYTE OF NUM TO DIVIDE INTO
              148  *   Y= HIBYTE OF NUM TO DIVIDE INTO
              149  *   RESULT & REMAIN HAVE ANSWER ON EXIT
              150  *    A=REMAINDER
4082 8D1642   151  DIVIDE	STA	RESULT
4085 8E1842   152  	STX	DIVISOR
4088 98       153  	TYA
4089 A208     154  	LDX	#$08
408B 0E1642   155  DIV1	ASL	RESULT
408E 2A       156  	ROL	A
408F CD1842   157  	CMP	DIVISOR
4092 9006     158  	BCC	DIV2
4094 ED1842   159  	SBC	DIVISOR
4097 EE1642   160  	INC	RESULT
409A CA       161  DIV2	DEX
409B D0EE     162  	BNE	DIV1
409D 8D1742   163  	STA	REMAIN
40A0 60       164  	RTS
              165  ;
              166  *   8 BIT MULTIPLY
              167  *   MULTIPLIES ACC BY X REG.
              168  *   STORES RESULT (L,H) IN RESULT & RESULT+1
40A1 8D1942as: QUESTIONABLE SYNTAX on line 169
   169  MULTIPLY STA	M1		z; MULTIPLIER
40A4 8E1A42   170  	STX	M2		; MULTIPLICAND
40A7 A900     171  	LDA	#$0
40A9 8D1642   172  	STA	RESULT
40AC 8D1742   173  	STA	RESULT+1
40AF A208     174  	LDX	#$08
40B1 0E1642   175  MUL1	ASL	RESULT
40B4 2E1742   176  	ROL	RESULT+1
40B7 0E1A42   177  	ASL	M2
40BA 900F     178  	BCC	MUL2
40BC 18       179  	CLC
40BD AD1642   180  	LDA	RESULT
40C0 6D1942   181  	ADC	M1
40C3 8D1642   182  	STA	RESULT
40C6 9003     183  	BCC	MUL2
40C8 EE1742   184  	INC	RESULT+1
40CB CA       185  MUL2	DEX
40CC D0E3     186  	BNE	MUL1
40CE 60       187  	RTS
              188  ;
40CF A901     189  NEWBALL	LDA	#$01		; BALL COLOR
40D1 8D1542   190  	STA	COLOR
40D4 18       191  	CLC
40D5 AD0AD2   192  	LDA	RANDOM
40D8 297F     193  	AND	#$7F		; 0-128
40DA 6910     194  	ADC	#$10		; 16-144
40DC 8D2042   195  	STA	BALLX		; BALL HORIZ. POS. IS DOUBLED SO IT CAN BE MOVED IN HALF INC
40DF 4A       196  	LSR	A		; /2 FOR ACTUAL BALL POSITION
40E0 8D2542   197  	STA	OLDX
40E3 A8       198  	TAY
40E4 A200     199  	LDX	#$00
40E6 A911     200  	LDA	#$11		; 17
40E8 8D2142   201  	STA	BALLY
40EB 8D2642   202  	STA	OLDY
40EE 203440   203  	JSR	PLOT		; PUT NEW BALL STARTING POS. ON SCREEN
40F1 A901     204  	LDA	#$01
40F3 8D2342   205  	STA	DY		; SET FOR DOWN
40F6 AD0AD2   206  	LDA	RANDOM
40F9 2903     207  	AND	#$03		; 0-3
40FB AA       208  	TAX
40FC BD0D42   209  	LDA	VX,X		; PICK RANDOM HORIZ. VECTOR
40FF 8D2242   210  	STA	DX		; SAVE IT
4102 A926     211  	LDA	#$26		; 38
4104 8D2742   212  	STA	PADDLE		; REPOSITION TO MIDDLE OF SCREEN
4107 201741   213  NB1	JSR	DOPADDLE
410A AD7802   214  	LDA	STICKO
410D C90F     215  	CMP	#$0F		; STICK CENTER?
410F D0F6     216  	BNE	NB1		; WAIT TILL IT IS.
4111 AD8402   217  	LDA	STRIGO		; BUTTON PRESSSED?
4114 D0F1     218  	BNE	NB1		; WAIT TILL TRIGGER PRESSED
4116 60       219  	RTS
4117 AE7802   220  DOPADDLE LDX	STICKO		; GET STICK VALUE
411A AD8402   221  	LDA	STRIGO		; BUTTON PRESSED
411D D006     222  	BNE	DP1		; USE NORMAL SPEED PADDLE MOVEMENT
411F BDFD41   223  	LDA	FHOFFS,X	; TRIPLE SPEED TABLE
4122 4C2841   224  	JMP	DP2
4125 BDED41   225  DP1	LDA	HOFFS,X		; NORMAL SPEED TABLE
4128 A200     226  DP2	LDX	#$00		; PADDLE MINIMUM
412A A04C     227  	LDY	#$4C		; 76 PADDLE MAXIMUM
412C 18       228  	CLC
412D 6D2742   229  	ADC	PADDLE
4130 1001     230  	BPL	DP3
4132 8A       231  	TXA			; PADDLE H. CAN'T GO LESS THAN 0 SO SET IT TO 0
4133 C94D     232  DP3	CMP	#$4D		; 77 GONE PAST UPPER LIMIT
4135 9001     233  	BCC	DP4		; OK IF <
4137 98       234  	TYA
4138 8D2742   235  DP4	STA	PADDLE
              236  *   NOW ERASE OLD PADDLE & DRAW NEW
413B A900     237  	LDA	#$00
413D 8D1542   238  	STA	COLOR
4140 205241   239  	JSR	DRPADDLE
4143 AD2742   240  	LDA	PADDLE
4146 8D2842   241  	STA	PX
4149 A901     242  	LDA	#$01
414B 8D1542   243  	STA	COLOR
414E 205241   244  	JSR	DRPADDLE
4151 60       245  	RTS
              246  *   DRAW PADDLE
4152 A924     247  DRPADDLE LDA	#$24		; 36TH ROW
4154 AC2842   248  	LDY	PX		; PADDLE H.
4157 A200     249  	LDX	#$00		; HI BYTE OF PADDLE H. ALWAYS 0 UNLESS GR. 8
4159 203440   250  	JSR	PLOT
415C 18       251  	CLC
415D AD2842   252  	LDA	PX
4160 6903     253  	ADC	#$03		; END OF PADDLE IS PADDLE H. + 3
4162 A8       254  	TAY			; SET UP FOR DRAWTO CALL
4163 A200     255  	LDX	#$00
4165 A924     256  	LDA	#$24
4167 204C40   257  	JSR	DRAWTO
416A 60       258  	RTS
              259  *EBRICK
              260  * ERASES BRICK ONE LINE AT A TIME
416B A200     261  EBRICK	LDX	#$00
416D 8E1542   262  	STX	COLOR
4170 AD2C42   263  	LDA	BRICKY
4173 AC2B42   264  	LDY	BRICKX
4176 203440   265  	JSR	PLOT
4179 18       266  	CLC
417A AD2B42   267  	LDA	BRICKX
417D 6904     268  	ADC	#$04
417F A8       269  	TAY
4180 A200     270  	LDX	#$00
4182 AD2C42   271  	LDA	BRICKY
4185 204C40   272  	JSR	DRAWTO
4188 60       273  	RTS
              274  *
4189 A514     275  JDELAY	LDA	RTCLOC
418B C514     276  JD1	CMP	RTCLOC
418D F0FC     277  	BEQ	JD1
418F CA       278  	DEX
4190 D0F7     279  	BNE	JDELAY
4192 60       280  	RTS
              281  *
              282  * VBI ROUTINE IS USED SO SOUND DOES NOT INTERFERE WITH PLAY
              283  *
4193 D8       284  VBI	CLD
4194 AD2F42   285  	LDA	TIMER		; SOUND TO DO
4197 F010     286  	BEQ	XVBI		; NO. LEAVE
4199 CE2F42   287  	DEC	TIMER		; COUNTDOWN
419C AD2F42   288  	LDA	TIMER		; USE TIMER AS VOLUME
419F 09A0     289  	ORA	#$A0		; DISTORTION 10
41A1 8D01D2   290  	STA	AUDC1		; TELL POKEY
41A4 A920     291  	LDA	#$20
41A6 8D00D2   292  	STA	AUDF1
              293  XVBI
41A9 4C62E4   294  	JMP	XITVBV
              295  *
              296  *   PROGRAM DATA
              297  *
              298  *FNAME	AS	"S:"
              299  *	HS	9B
41AC 533A     300  FNAME	DB	$53,$3A
41AE 9B       301  	DB	$9B
              302  ;
              303  ;
              304  ;
              305  *MSG0	AT	"GAME OVER"
41AF 27212D   306  MSG0	DB	$27,$21,$2D
41B2 25002F   307  	DB	$25,$00,$2F
41B5 362532   308  	DB	$36,$25,$32
              309  ;
              310  ;
              311  ;
              312  *MSG1	AT	" PERFECT!"
41B8 003025   313  MSG1	DB	$00,$30,$25
41BB 322625   314  	DB	$32,$26,$25
41BE 233401   315  	DB	$23,$34,$01
              316  ;
              317  ;
              318  ;
              319  *MSGTAB	DA	MSG0,MSG1
41C1 AF41     320  MSGTAB	DW	MSG0
41C3 B841     321  	DW	MSG1
              322  ;
              323  ;
              324  ;
              325  *TOPLINE	AT	BALL: 0
              326  *	AT	SCORE: 0000
41C5 000022   327  TOPLINE	DB	$00,$00,$22
41C8 212C2C   328  	DB	$21,$2C,$2C
41CB 1A0010   329  	DB	$1A,$00,$10
41CE 000000   330  	DB	$00,$00,$00
41D1 000000   331  	DB	$00,$00,$00
41D4 000000   332  	DB	$00,$00,$00
41D7 0000     333  	DB	$00,$00
41D9 000000   334  	DB	$00,$00,$00
41DC 000000   335  	DB	$00,$00,$00
41DF 000033   336  	DB	$00,$00,$33
41E2 232F32   337  	DB	$23,$2F,$32
41E5 251A00   338  	DB	$25,$1A,$00
41E8 101010   339  	DB	$10,$10,$10
41EB 1000     340  	DB	$10,$00
              341  ;
              342  ;
              343  ;
              344  *HOFFS	HS	0000000000010101
              345  *	HS	00FFFFFF00000000
41ED 000000   346  HOFFS	DB	$00,$00,$00,$00,$00,$01,$01,$01
41F5 00FFFF   347  	DB	$00,$FF,$FF,$FF,$00,$00,$00,$00
              348  ;
              349  ;
              350  ;
              351  *FHOFFS	HS	0000000000030303
              352  *	HS	00FDFDFD00000000
41FD 000000   353  FHOFFS	DB	$00,$00,$00,$00,$00,$03,$03,$03
4205 00FDFD   354  	DB	$00,$FD,$FD,$FD,$00,$00,$00,$00
              355  ;
              356  ;
              357  ;
              358  *VX	HS	FEFF0102
420D FEFF01   359  VX	DB	$FE,$FF,$01,$02
              360  ;
              361  ;
              362  ;
              363  *POINTS	HS	00100503
4211 001005   364  POINTS	DB	$00,$10,$05,$03
              365  ;
              366  ;
              367  ;
4215 00       368  COLOR	DS	1
4216 00       369  RESULT	DS	1		; RESULT & REMAIN MUST STAY
4217 00       370  REMAIN	DS	1		; NEXT TO EACH OTHER
4218 00       371  DIVISOR	DS	1
4219 00       372  M1	DS	1
421A 00       373  M2	DS	1
421B 00       374  TEMPI	DS	1
421C 00       375  TEMP2	DS	1
421D 00       376  TEMP3	DS	1
421E 00       377  TEMP4	DS	1
421F 00       378  ROW	DS	1
4220 00       379  BALLX	DS	1		; BALL'S X POSITION (DOUBLED)
4221 00       380  BALLY	DS	1		; BALL'S Y POSITION
4222 00       381  DX	DS	1		; DOUBLED HORIZONTAL DIRECTION VALUE
4223 00       382  DY	DS	1		; VERTICAL DIRECTION VALUE
4224 00       383  TX	DS	1		; TRUE HORIZONTAL DIRECTION VALUE
4225 00       384  OLDX	DS	1		; BALL'S OLD HORIZ POSITION
4226 00       385  OLDY	DS	1		; BALL'S OLD VERTICAL POSITION
4227 00       386  PADDLE	DS	1		; HORIZ PADDLE POSITION
4228 00       387  PX	DS	1		; NEW HORIZ PADDLE POSITION
4229 00       388  BALLS	DS	1
422A 00       389  BRICKS	DS	1
422B 00       390  BRICKX	DS	1		; HORIZ POSITION OF BRICK TO BE REMOVED
422C 00       391  BRICKY	DS	1		; VERTICAL POSITION
422D 0000     392  SCORE	DS	2
422F 00       393  TIMER	DS	1
              394  ;
              395  *BEGINNING OF MAIN PROGRAM
4230 A907     396  START	LDA	#$07		; DEFFERED
4232 A093     397  	LDY	#>VBI
4234 A241     398  	LDX	#<VBI
4236 205CE4   399  	JSR	SETVBV		; ENABLE SOUND ROUTINE
4239 A905     400  	LDA	#$05		; START WITH GRAPHICS 5
423B 200340   401  	JSR	GRAPHICS
423E AD3002   402  	LDA	SDLSTL		; FIND DISPLAY LIST
4241 85F6     403  	STA	PO
4243 AD3102   404  	LDA	SDLSTL+1
4246 85F7     405  	STA	PO+1
4248 A02F     406  	LDY	#$2F
424A B1F6     407  	LDA	(PO),Y		; FIND OUT WHERE IT PUT TEXT WINDOW
424C 85F1     408  	STA	WINDOW+1
424E 85F5     409  	STA	LINE2+1
4250 88       410  	DEY
4251 B1F6     411  	LDA	(PO),Y
4253 85F0     412  	STA	WINDOW
4255 18       413  	CLC
4256 6938     414  	ADC	#$38		; 56 ALMOST HALFWAY INTO 2ND LINE OF TEXT WINDOW
4258 85F4     415  	STA	LINE2
425A 9002     416  	BL	ST1
425C E6F5     417  	INC	LINE2+1
425E A027     418  ST1	LDY	#$27	; 39
4260 B9C541   419  ST2	LDA	TOPLINE,Y	; BLOCK MOVE THE TOPLINE INTO TEXT WINDOW
4263 91F0     420  	STA	(WINDOW),Y
4265 88       421  	DEY
4266 10F8     422  	BPL	ST2
              423  * NOW DRAW BRICKS
4268 A903     424  DOBRICKS LDA	#$03
426A 8D1B42   425  	STA	TEMPI
426D AD1B42   426  DB1	LDA	TEMPI
4270 8D1542   427  	STA	COLOR
4273 A902     428  	LDA	#$02
4275 8D1C42   429  	STA	TEMP2
4278 AD1B42   430  DB2	LDA	TEMPI
427B 0A       431  	ASL	A		; X 2
427C 0A       432  	ASL	A		; X 4
427D 18       433  	CLC
427E 6D1C42   434  	ADC	TEMP2
4281 8D1F42   435  	STA	ROW
4284 A902     436  	LDA	#$02
4286 8D1D42   437  	STA	TEMP3
4289 AD1F42   438  DB3	LDA	ROW
428C A200     439  	LDX	#$00
428E A000     440  	LDY	#$00
4290 203440   441  	JSR	PLOT		; PLOT O,ROW
4293 AD1F42   442  	LDA	ROW
4296 A200     443  	LDX	#$0
4298 A04F     444  	LDY	#$4F		; 79
429A 204C40   445  	JSR	DRAWTO		; DRAWTO 79,ROW
429D EE1F42   446  	INC	ROW
42A0 CE1D42   447  	DEC	TEMP3
42A3 D0E4     448  	BNE	DB3		; TWO ROWS PER BRICK
42A5 CE1C42   449  	DEC	TEMP2
42A8 CE1C42   450  	DEC	TEMP2
42AB 10CB     451  	BPL	DB2		; TWO ROWS OF BRICKS PER COLOR
42AD CE1B42   452  	DEC	TEMPI
42B0 D0BB     453  	BNE	DB1		; 3 COLORS OF BRICKS
42B2 A901     454  	LDA	#$01
42B4 8D2942   455  	STA	BALLS
42B7 0910     456  	ORA	#$10		; MAKE INTERNERNAL CHR
42B9 A008     457  	LDY	#$08
42BB 91F0     458  	STA	(WINDOW),Y
42BD A960     459  	LDA	#$60		; 96 6 ROWS OF 16 BRICKS
42BF 8D2A42   460  	STA	BRICKS
42C2 A900     461  	LDA	#$00
42C4 8D2D42   462  	STA	SCORE
42C7 8D2E42   463  	STA	SCORE+1
              464  * MAIN GAME LOOP BEGINS HERE
              465  *
42CA 20CF40   466  GAME	JSR	NEWBALL		; INITIALIZE NEW BALL DATA WAIT FOR BUTTON PRESS
42CD A208     467  GAMELOOP	LDX	#$08
42CF 864D     468  	STX	ATRACT
42D1 208941   469  	JSR	JDELAY
42D4 201741   470  	JSR	DOPADDLE	; UPDATE PADDLE POS.
              471  * GET NEW BALL POS.
42D7 18       472  DOBALL	CLC
42D8 AD2042   473  	LDA	BALLX
42DB 6D2242   474  	ADC	DX		; HORIZONTAL CHANCE. -2 TO +2
42DE C9F0     475  	CMP	#$F0
42E0 9002     476  	BCC	AA0
42E2 A900     477  	LDA	#$00
42E4 C9A0     478  AA0	CMP	#$A0
42E6 9002     479  	BCC	AA10
42E8 A99F     480  	LDA	#$9F
42EA 8D2042   481  AA10	STA	BALLX
42ED 4A       482  	LSR	A		; TRUE H. POS.
42EE 8D2442   483  	STA	TX
42F1 F004     484  	BEQ	AA1
42F3 C94F     485  	CMP	#$4F		; 79 AT RIGHT EDGE?
42F5 9010     486  	BL	AA2		; OK IF
42F7 CE2242   487  AA1	DEC	DX
42FA AD2242   488  	LDA	DX
42FD 49FF     489  	EOR	#$FF		; REVERSE HORIZONTAL
42FF 8D2242   490  	STA	DX
4302 A910     491  	LDA	#$10
4304 8D2F42   492  	STA	TIMER		; PING!
4307 18       493  AA2	CLC
4308 AD2142   494  	LDA	BALLY
430B 6D2342   495  	ADC	DY
430E 8D2142   496  	STA	BALLY
4311 C902     497  	CMP	#$02
4313 B00C     498  	BGE	AA3
4315 A901     499  	LDA	#$01		; AT TOP
4317 8D2342   500  	STA	DY		; SET VERTICAL DIRECTION TO DOWN
431A A910     501  	LDA	#$10
431C 8D2F42   502  	STA	TIMER		; PING!
431F D007     503  	BNE	HITCK		; BRANCH ALWAYS
4321 C927     504  AA3	CMP	#$27		; PAST PADDLE?
4323 9003     505  	BL	HITCK		; OK IF <
4325 4CED43   506  	JMP	ENDBALL
              507  ; ACC HAS V.
4328 A200     508  HITCK	LDX	#$00
432A AC2442   509  	LDY	TX
432D 206940   510  	JSR	LOCATE		; ACC. HAS COLOR VALUE OF PIXEL
4330 C900     511  	CMP	#$00
4332 D003     512  	BNE	AB1
4334 4CC443   513  	JMP	XHITCK
4337 A010     514  AB1	LDY	#$10
4339 8C2F42   515  	STY	TIMER		; PING!
433C AC2142   516  	LDY	BALLY
433F C020     517  	CPY	#$20		; HAS IT HIT PADDLE OR BRICKS?
4341 9015     518  	BCC	AB2		; BRICKS
4343 AD2442   519  	LDA	TX		; COMPARE PADDLE H. TO BALL H.
4346 ED2842   520  	SBC	PX		; DIFFERENCE IS 0-3
4349 AA       521  	TAX			; AND WILL DECIDE NEW HORIZ. VELOCITY
434A BD0D42   522  	LDA	VX,X
434D 8D2242   523  	STA	DX		; STORE NEW HORIZ VELOCITY
4350 A9FF     524  	LDA	#$FF
4352 8D2342   525  	STA	DY		; SET VERTICAL DIRECTION TO UP
4355 4CC443   526  	JMP	XHITCK		; LEAVE
              527  *ACC. STILL HAS COLOR		; VALUE HIT. USE IT TO GET BRICK VALUE
4358 AA       528  AB2	TAX
4359 F8       529  	SED
435A AD2E42   530  	LDA	SCORE+1		; LOAD TWO LOW DIGITS
435D 7D1142   531  	ADC	POINTS,X	; ADD POINT VALUE OF BRICK
4360 8D2E42   532  	STA	SCORE+1
4363 A900     533  	LDA	#$00		; WILL ALSO ADD CARRY BIT IF NECESSARY
4365 6D2D42   534  	ADC	SCORE
4368 8D2D42   535  	STA	SCORE
436B D8       536  	CLD
              537  * NOW PRINT NEW SCORE ON SCREEN
              538  DOSCORE
436C A200     539  	LDX	#$00
436E A023     540  	LDY	#$23
4370 BD2D42   541  AC1	LDA	SCORE,X
4373 4A       542  	LSR	A		; EACH BYTE HOLDS 2 NUMBERS
4374 4A       543  	LSR	A		; SHIFT UPPER NIBBLE OVER
4375 4A       544  	LSR	A		; AND DO IT
4376 4A       545  	LSR	A		; FIRST.
4377 0910     546  	ORA	#$10		; TRANSLATE NUMBER INTO INTERNAL CHARACTER
4379 91F0     547  	STA	(WINDOW),Y	; STORE HIGHER DIGIT OF PAIR IN TEXT AREA
437B C8       548  	INY			; NEXT
437C BD2D42   549  	LDA	SCORE,X
437F 290F     550  	AND	#$0F		; NOW DO LOWER NIBBLE
4381 0910     551  	ORA	#$10		; MAKE A CHR
4383 91F0     552  	STA	(WINDOW),Y	; STORE LOWER DIGIT OF PAIR IN TEXT AREA
4385 C8       553  	INY
4386 E8       554  	INX
4387 E002     555  	CPX	#2		; DONE BOTH BYTES? (ALL 4 SCORE DIGITS)
4389 D0E5     556  	BNE	AC1
              557  *NOW CALCULATE BRICK POSITION
              558  *   BRICK HORIZONTAL IS THE INTEGER OF TX/5
438B AD2442   559  	LDA	TX
438E A000     560  	LDY	#$00		; TX HAS NO HIBYTE SO Y=O
4390 A205     561  	LDX	#$05		; TO DIVIDE BY
4392 208240   562  	JSR	DIVIDE
4395 AD1642   563  	LDA	RESULT
4398 A205     564  	LDX	#$05
439A 20A140   565  	JSR	MULTIPLY
439D AD1642   566  	LDA	RESULT
43A0 8D2B42   567  	STA	BRICKX
43A3 AD2142   568  	LDA	BALLY		; BALL VERT.
43A6 4A       569  	LSR	A		; /2
43A7 0A       570  	ASL	A		; X2 THIS INSURES AN EVEN NUMBER
43A8 8D2C42   571  	STA	BRICKY		; THE 'FOP OF ANY BRICK IS AN EVEN ROW.
43AB 206B41   572  	JSR	EBRICK		; ERASE TOP 1,INE OF BRICK
43AE EE2C42   573  	INC	BRICKY		; BRICKS ARE 2 [,INES HIGH
43B1 206B41   574  	JSR	EBRICK		; ERASE SECOND LINE
              575  *   BRICK IS GONE
              576  *   FLIP FLOP VERTICAL DIRECTION
43B4 CE2342   577  	DEC	DY
43B7 AD2342   578  	LDA	DY
43BA 49FF     579  	EOR	#$FF
43BC 8D2342   580  	STA	DY
43BF CE2A42   581  	DEC	BRICKS		; ONE LESS BRICK
43C2 F04A     582  	BEQ	ENDGAME		; IF ALL ARE GONE END GAME
43C4 A900     583  XHITCK	LDA	#$0
43C6 8D1542   584  	STA	COLOR
43C9 AD2642   585  	LDA	OLDY
43CC A200     586  	LDX	#$00
43CE AC2542   587  	LDY	OLDX
43D1 203440   588  	JSR	PLOT		; ERASE OLD BALL
43D4 A901     589  	LDA	#$01
43D6 8D1542   590  	STA	COLOR
43D9 AD2142   591  	LDA	BALLY
43DC 8D2642   592  	STA	OLDY
43DF A200     593  	LDX	#$00
43E1 AC2442   594  	LDY	TX
43E4 8C2542   595  	STY	OLDX
43E7 203440   596  	JSR	PLOT		; PUT BALL ON IN NEW POSITION
43EA 4CCD42   597  	JMP	GAMELOOP	; DO IT AGAIN
43ED A200     598  ENDBALL	LDX	#$00
43EF 8E1542   599  	STX	COLOR
43F2 AC2542   600  	LDY	OLDX
43F5 AD2642   601  	LDA	OLDY
43F8 203440   602  	JSR	PLOT		; ERASE BALL
43FB EE2942   603  	INC	BALLS
43FE AD2942   604  	LDA	BALLS		; 2-6
4401 C906     605  	CMP	#$06
4403 B009     606  	BCS	ENDGAME
4405 0910     607  	ORA	#$10		; MAKE INTO CHR.
4407 A008     608  	LDY	#$08
4409 91F0     609  	STA	(WINDOW),Y
440B 4CCA42   610  	JMP	GAME		; GO BACK TO NEWBALL ROUTINE
              611  ENDGAME
440E A200     612  	LDX	#$00
4410 AD2A42   613  	LDA	BRICKS
4413 D001     614  	BNE	AD1
4415 E8       615  	INX			; THEN 2ND MESSAGE
4416 8A       616  AD1	TXA
4417 0A       617  	ASL
4418 AA       618  	TAX
4419 BDC141   619  	LDA	MSGTAB,X
441C 85F2     620  	STA	MSG
441E BDC241   621  	LDA	MSGTAB+1,X
4421 85F3     622  	STA	MSG+1
4423 A008     623  	LDY	#$08
4425 B1F2     624  AD2	LDA	(MSG),Y
4427 91F4     625  	STA	(LINE2),Y
4429 88       626  	DEY
442A 10F9     627  	BPL	AD2
442C AD1FD0   628  AD3	LDA	CONSOL
442F C906     629  	CMP	#$06
4431 D0F9     630  	BNE	AD3
4433 4C3042   631  	JMP	START